﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class PaisesFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As PaisesBE
        Dim tmpPaises As PaisesBE = New PaisesBE()
        Try
            With tmpPaises
                .IdPais = convertDTFromDb.ConvertLong(dr.Item("IdPais"))
                .Pais = convertDTFromDb.ConvertString(dr.Item("Pais"))
            End With
            Return tmpPaises
        Catch ex As Exception
            Throw
        Finally
            tmpPaises = Nothing
        End Try
    End Function
End Class
